Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/webmon_1/frmgatew.frm

Text File | 1999-08-09 | 33KB | 1,022 lines

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{24365B29-A3B5-11D1-B8B0-444553540000}#1.0#0"; "Xfxforms.ocx"
Begin VB.Form FrmGateWay
   BackColor       =   &H00FF8080&
   BorderStyle     =   0  'None
   ClientHeight    =   6195
   ClientLeft      =   4320
   ClientTop       =   3330
   ClientWidth     =   9285
   LinkTopic       =   "Form1"
   ScaleHeight     =   6195
   ScaleWidth      =   9285
   ShowInTaskbar   =   0   'False
   Begin VB.Timer tmrStarted
      Interval        =   65000
      Left            =   4080
      Top             =   2880
   End
   Begin xfxFormShaper.FormShaper FormShaper1
      Left            =   120
      Top             =   1080
      _ExtentX        =   1852
      _ExtentY        =   1296
   End
   Begin VB.TextBox txtPingThis
      Height          =   285
      Left            =   5880
      TabIndex        =   24
      Top             =   5280
      Width           =   1575
   End
   Begin VB.Timer tmrScroll
      Interval        =   50
      Left            =   5160
      Top             =   240
   End
   Begin VB.Timer tmrUpdater
      Interval        =   1000
      Left            =   3120
      Top             =   360
   End
   Begin VB.Timer tmrAlert2
      Enabled         =   0   'False
      Index           =   1
      Interval        =   1000
      Left            =   480
      Top             =   0
   End
   Begin VB.Timer tmrAlert2
      Enabled         =   0   'False
      Index           =   0
      Interval        =   10000
      Left            =   0
      Top             =   0
   End
   Begin VB.Timer tmrAlert2
      Enabled         =   0   'False
      Index           =   2
      Interval        =   1000
      Left            =   960
      Top             =   0
   End
   Begin VB.Timer tmrDealWithResponseCodes
      Enabled         =   0   'False
      Interval        =   10000
      Left            =   4560
      Top             =   120
   End
   Begin MSWinsockLib.Winsock WGate
      Left            =   720
      Top             =   240
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   327681
      Protocol        =   1
   End
   Begin VB.Timer TmrCheckGateWays
      Interval        =   1000
      Left            =   360
      Top             =   240
   End
   Begin VB.Label lblPingStatus
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   615
      Left            =   4320
      TabIndex        =   33
      Top             =   3120
      Width           =   4815
   End
   Begin VB.Label Label12
      BackColor       =   &H00000000&
      Caption         =   "  Bytes Sent"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   4320
      TabIndex        =   32
      Top             =   3720
      Width           =   1335
   End
   Begin VB.Label lblBytesSent
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   5640
      TabIndex        =   31
      Top             =   3720
      Width           =   1215
   End
   Begin VB.Label Label7
      BackColor       =   &H00000000&
      Caption         =   "  Bytes Recieved"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   4320
      TabIndex        =   30
      Top             =   3960
      Width           =   1335
   End
   Begin VB.Label lblBytesRecieved
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   5640
      TabIndex        =   29
      Top             =   3960
      Width           =   1215
   End
   Begin VB.Label Label9
      BackColor       =   &H00000000&
      Caption         =   "  Time in m/s"
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   4320
      TabIndex        =   28
      Top             =   4200
      Width           =   1335
   End
   Begin VB.Label lblTimeMS
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   5640
      TabIndex        =   27
      Top             =   4200
      Width           =   1215
   End
   Begin VB.Label lblPStats2
      BackColor       =   &H00000000&
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   375
      Left            =   4320
      TabIndex        =   26
      Top             =   4440
      Width           =   4815
   End
   Begin VB.Label Label5
      BackColor       =   &H00000000&
      Caption         =   "Label11"
      Height          =   735
      Left            =   6840
      TabIndex        =   25
      Top             =   3720
      Width           =   2295
   End
   Begin VB.Image Image1
      Height          =   480
      Left            =   4560
      Picture         =   "FrmGateWay.frx":0000
      ToolTipText     =   "Add New Server"
      Top             =   5160
      Width           =   480
   End
   Begin VB.Image Image2
      Height          =   480
      Left            =   5280
      Picture         =   "FrmGateWay.frx":0442
      ToolTipText     =   "Reset Alarms"
      Top             =   5160
      Width           =   480
   End
   Begin VB.Image Image3
      Height          =   480
      Left            =   7680
      Picture         =   "FrmGateWay.frx":0884
      ToolTipText     =   "Manual Ping"
      Top             =   5160
      Width           =   480
   End
   Begin VB.Image Image4
      Height          =   480
      Left            =   8400
      Picture         =   "FrmGateWay.frx":0CC6
      ToolTipText     =   "Hide"
      Top             =   5160
      Width           =   480
   End
   Begin VB.Label lblScroll
      BackStyle       =   0  'Transparent
      Caption         =   "WebMon GateWay Service Monitor"
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   -5760
      TabIndex        =   23
      Top             =   120
      Width           =   6015
   End
   Begin VB.Line Line17
      BorderColor     =   &H0000FF00&
      X1              =   240
      X2              =   3840
      Y1              =   5280
      Y2              =   5280
   End
   Begin VB.Label Label3
      BackColor       =   &H00000000&
      Caption         =   "Label3"
      Height          =   495
      Left            =   120
      TabIndex        =   22
      Top             =   5280
      Width           =   3855
   End
   Begin VB.Line Line16
      BorderColor     =   &H0000FF00&
      X1              =   3840
      X2              =   3840
      Y1              =   4800
      Y2              =   5280
   End
   Begin VB.Line Line15
      BorderColor     =   &H0000FF00&
      X1              =   240
      X2              =   3840
      Y1              =   4800
      Y2              =   4800
   End
   Begin VB.Line Line14
      BorderColor     =   &H00FF00F